Unit
lmdclass

Declaration

TLMDMaxLogSizeEvent = procedure(Sender:TObject; const LogName:String; var Cancel:Boolean) of object;